﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class EditarProveedor
    Inherits System.Web.UI.Page


    Dim errores As String
    Dim mensaje As String
    Public Shared proveedor As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then

            'Recuperamos el parámetro enviado
            proveedor = Request.QueryString("proveedor")

            'Pintamos en los controles los datos originales del 

            'Instanciamos la clase 
            Dim capanegocios As New ProveedorBL
            'Instanciamos la entidad de negocio 
            Dim objeto As New BE.ProveedorBE
            objeto.codigo = proveedor

            Try
                txtnombre.Text = capanegocios.BuscarProveedor(objeto). _
                Tables("ElProveedor").Rows(0).Item(1)

            Catch ex As Exception
                errores = capanegocios.ChapaError
                Response.Redirect("Errores.aspx?id=" & errores)

            Finally
                'Liberamos recursos
                capanegocios = Nothing
                objeto = Nothing
            End Try
        End If

    End Sub

    Protected Sub btngrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngrabar.Click

        'Instanciamos la clase 
        Dim capanegocios As New ProveedorBL
        'Instanciamos la entidad de negocio 
        Dim objeto As New BE.ProveedorBE
        objeto.codigo = proveedor

        'Llenas las propiedades

        objeto.razonsocial = txtnombre.Text

        'Try
        If capanegocios.ActualizarProveedor(objeto) = True Then

            mensaje = "Se actualizó el proveedor"
            Dim script As String = "<script language=Javascript>"
            script += "alert('" & mensaje & "');"
            script += "</script>"
            Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)



            'Else

            '    mensaje = "No se actualizó el proveedor"
            '    Dim script As String = "<script language=Javascript>"
            '    script += "alert('" & mensaje & "');"
            '    script += "</script>"
            '    Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

        End If

        Response.Redirect("MantProveedores.aspx")

        'Catch ex As Exception
        'errores = capanegocios.ChapaError
        ' Response.Redirect("Errores.aspx?id=" & errores)
        'Finally
        capanegocios = Nothing
        objeto = Nothing
        'End Try

    End Sub

End Class
